1 FORI=2TO8STEP.9  :S=54272:POKE54296,15:FORJ=1TO6:POKES+0,255
11 PRINTTAB(A)"[157][157]ENDE";:POKE646,I:A=A+1
21 PRINTTAB(A)"                                        [157][157][157][157][157][157][157][157][145]";:POKES+4,17
31 PRINTTAB((A)+1)"[157][157][157][157][157][157][157][157][157][157]                                         ";
41 PRINTTAB(A):POKE54276,33:POKE54278,240:POKE54273,3+ABS(4-J):
51 PRINTTAB((A)+2)"[145][145][159]          [150]     [156]          [154]     [129]          [157][157][157][157][157][157][157][157][157]";
61 PRINT"         ":
71 :POKES+4,32:NEXT:NEXT